﻿Imports CustomTshirtFinal

Public Class ProductoNuevo

    Property Productos As Productos


    Private Sub btnGuardar_Click(sender As System.Object, e As System.EventArgs) Handles btnGuardar.Click

        Dim negocio As New ProductoNegocio
        Try
            If lblId.Text <> "" Then
                negocio.actualizar(lblId.Text, Me.txtNombre.Text, Me.txtDescripcion.Text, Me.txtPrecio.Text, Me.txtStock.Text, Me.txtImportancia.Text)
            Else
                negocio.insertar(Me.txtNombre.Text, Me.txtDescripcion.Text, Me.txtPrecio.Text, Me.txtStock.Text, Me.txtImportancia.Text)
            End If

            Me.Productos.dgvProductos.DataSource = ""

            MsgBox("El Producto ha sido insertado exitosamente")

            Me.Close()

        Catch ex As Exception
            lblMensaje.Text = "Hubo un error al guardar"
        End Try


    End Sub

    Private Sub ProductoNuevo_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        If lblId.Text <> "" Then
            Dim negocio As New ProductoNegocio
            Dim modelo = negocio.obtener(lblId.Text)
            txtNombre.Text = modelo.nombre
            txtDescripcion.Text = modelo.descripcion
            txtPrecio.Text = modelo.precio
            txtStock.Text = modelo.stock
            txtImportancia.Text = modelo.importancia
        End If
    End Sub
End Class